" B a l l y   B A S I C   D e m o "   C a r t   P r o g r a m   P r i n t o u t 
 
 F e b r u a r y   2 6 ,   2 0 1 0 
 
 B y   R i c h a r d   D e g l e r 
 
 
 
 
 
 T h i s   m a t c h e s   t h e   l i s t i n g   i n   " b a l l y _ b a s i c _ d e m o _ c a r t . p d f " 
 
 T h e   e x t r a   s p a c e   i n   l i n e   2 0 2 6 0   " R N D   ( 1 6 0 ) "   w a s   i n   t h e   o r i g i n a l . 
 
 
 
 1   . 
 
 2   . 
 
 3   . 
 
 4   . B A L L Y   B A S I C   R O M   D E M O 
 
 5   . I P I 
 
 1 0   G O T O   9 0 
 
 3 0   F O R   A = 1 T O   5 0 0 ; N E X T   A ; C L E A R   ; F C = R N D   ( 3 1 )  8 - 1 ; B C = 8 
 
 3 1   F O R   M = 1 T O   2 5 0 ; N E X T   M ; R E T U R N 
 
 3 2   F O R   A = 1 T O   9 9 9 ; N E X T   A ; F C = F C + 8 0 ; R E T U R N 
 
 9 0   B C = C = 0 ; N T = 3 ; C L E A R   ; F O R   A = 1 T O   2 5 ; R = X ; S = Y 
 
 9 5   X = R N D   ( 8 0 ) - 1 ; Y = R N D   ( 4 4 ) - 1 
 
 1 0 0   I F   X  X  1 8 0 0 + Y  Y  5 0 < 1 G O T O   9 5 
 
 1 1 0   F C = R N D   ( 3 2 )  8 - 1 ; M U = F C 
 
 1 2 0   G O S U B   1 4 0 5 0 
 
 1 4 0   N E X T   A ; C Y = 0 ; C X = - 3 0 ; P R I N T   " I N T R O D U C I N G 
 
 1 6 0   G O S U B   3 2 ; C Y = 0 ; C X = - 4 8 ; P R I N T   " * *   B A L L Y   B A S I C   * * 
 
 2 0 0   G O S U B   3 0 ; P R I N T   ; P R I N T   ; P R I N T   ; C X = - 2 4 ; P R I N T   " F O R   Y O U R 
 
 2 1 0   P R I N T   ; C X = - 1 5 ; P R I N T   " B A L L Y 
 
 2 1 5   P R I N T 
 
 2 2 0   P R I N T   ; C X = - 4 2 ; P R I N T   " C O M P U T E R   S Y S T E M 
 
 2 4 0   G O S U B   3 0 ; P R I N T   ; P R I N T   ; P R I N T   ; C X = - 1 2 ; P R I N T   " W I T H 
 
 2 5 0   P R I N T   ; C X = - 3 0 ; P R I N T   " B A L L Y   B A S I C 
 
 2 6 0   P R I N T   ; C X = - 1 5 ; P R I N T   " Y O U   C A N . . . 
 
 4 0 0   G O S U B   3 0 ; P R I N T   ; C X = - 6 0 ; P R I N T   " C R E A T E   Y O U R   O W N   G A M E S 
 
 4 1 0   G O S U B   2 0 0 0 + ( R N D   ( 2 ) - 1 )  5 0 0 
 
 4 5 0   G O S U B   3 0 ; P R I N T   ; C X = - 4 8 ; P R I N T   " W R I T E   O N   Y O U R   T V 
 
 4 5 1   P R I N T   ; P R I N T   ; P R I N T   ; P R I N T   ; P R I N T   ; P R I N T   ; P R I N T 
 
 4 5 2   P R I N T   ; P R I N T   ; P R I N T   ; P R I N T   "   E D N A : 
 
 4 5 4   P R I N T   "   I ' M   L E A V I N G   -   C A N ' T 
 
 4 5 5   P R I N T   "   P L A Y   S E C O N D   F I D D L E 
 
 4 5 6   P R I N T   "   T O   Y O U R   C O M P U T E R 
 
 4 5 7   P R I N T   ; P R I N T   "   G E O R G E 
 
 4 5 8   P R I N T   ; P R I N T   ; P R I N T   ; P R I N T   "   E D N A : 
 
 4 5 9   P R I N T   "   I   T H O U G H T   H E ' D 
 
 4 6 0   P R I N T   "   N E V E R   G O . . .   F I N A L L Y 
 
 4 6 1   P R I N T   "   W E   A R E   A L O N E   ! ! 
 
 4 6 2   P R I N T   ; P R I N T   "   Y O U R   C O M P U T E R 
 
 4 6 8   G O S U B   3 0 
 
 5 0 0   P R I N T   ; C X = - 6 0 ; P R I N T   " M A K E   Y O U R   O W N   M U S I C 
 
 5 1 0   G O S U B   8 0 0 0 ; N T = 3 ; G O S U B   3 0 
 
 5 5 0   P R I N T   ; C X = - 6 0 ; P R I N T   " D I S P L A Y   I N F O R M A T I O N 
 
 5 6 0   G O S U B   1 1 0 0 0 ; G O S U B   3 0 
 
 6 0 0   P R I N T   ; C X = - 3 6 ; P R I N T   " D R A W   P I C T U R E S 
 
 6 1 0   G O S U B   3 1 ; C L E A R   ; G O S U B   1 4 0 0 0 ; G O S U B   3 0 
 
 8 0 0   P R I N T   ; P R I N T   ; C X = - 6 0 ; P R I N T   " W I T H   E A S Y   I N S T R U C T I O N S 
 
 8 1 0   P R I N T   ; C X = - 3 6 ; P R I N T   " Y O U   C A N   W R I T E 
 
 8 2 0   P R I N T   ; C X = - 5 4 ; P R I N T   " A   C O M P U T E R   P R O G R A M 
 
 8 3 0   P R I N T   ; C X = - 3 6 ; P R I N T   " I N   M I N U T E S ! ! 
 
 8 4 0   G O S U B   3 0 ; P R I N T   ; P R I N T 
 
 8 5 0   P R I N T   ; C X = - 5 4 ; P R I N T   " * *   B A L L Y   B A S I C   * * 
 
 8 6 0   P R I N T   ; P R I N T   ; C X = - 4 2 ; P R I N T   " M A K E S   I T   E A S Y 
 
 8 7 0   G O S U B   3 2 ; P R I N T   ; C X = - 2 1 ; P R I N T   " A N D   F U N 
 
 9 0 0   G O S U B   3 0 ; C Y = - 3 9 ; P R I N T   "   P R I N T   ' B O X ' " ; C X = - 6 ; C Y = 0 ; P R I N T   " B O X   " ; G O S U B   3 2 
 
 9 5 0   C Y = - 3 9 ; P R I N T   "   B O X   0 , 0 , 6 0 , 5 0 , 3 " ; B O X   0 , 0 , 6 1 , 4 9 , 3 ; G O S U B   3 2 
 
 9 6 0   C Y = - 3 9 ; P R I N T   "   B O X   4 0 , 0 , 1 3 , 4 9 , 3 " ; B O X   4 0 , 0 , 1 3 , 4 9 , 3 ; G O S U B   3 2 
 
 9 6 5   C Y = - 3 9 ; P R I N T   "   B O X   - 4 0 , 0 , 1 3 , 4 9 , 3 " ; B O X   - 4 0 , 0 , 1 3 , 4 9 , 3 ; G O S U B   3 2 
 
 9 7 0   C Y = - 3 9 ; P R I N T   "   B O X   4 0 , 2 0 , 5 , 5 , 3   " ; B O X   4 0 , 2 0 , 5 , 5 , 3 ; G O S U B   3 2 
 
 9 7 5   C Y = - 3 9 ; P R I N T   "   B O X   4 0 , 1 0 , 5 , 5 , 3 " ; B O X   4 0 , 1 0 , 5 , 5 , 3 ; G O S U B   3 2 
 
 9 8 0   C Y = - 3 9 ; P R I N T   "   B O X   0 , 0 , 9 9 , 5 9 , 3 " ; B O X   0 , 0 , 9 9 , 5 9 , 3 ; G O S U B   3 2 
 
 9 9 0   C Y = - 3 9 ; P R I N T   "   L I N E   0 , 3 0 , 3   " ; L I N E   0 , 3 0 , 4 ; L I N E   2 0 , 4 3 , 3 ; G O S U B   3 2 
 
 9 9 2   C Y = - 3 9 ; P R I N T   "   L I N E   - 2 0 , 4 3 , 0   " ; L I N E   - 2 0 , 4 3 , 0 ; L I N E   0 , 3 0 , 3 ; G O S U B   3 2 
 
 1 0 0 0   L I N E   0 , 0 , 4 ; B O X   0 , 0 , 2 0 , 9 , 2 
 
 1 0 2 0   B O X   0 , 0 , 6 1 , 4 9 , 2 
 
 1 0 3 0   C Y = - 3 9 ; P R I N T   "   B O X   0 , 0 , R N D   ( X ) , R N D   ( Y ) " 
 
 1 0 4 0   F O R   A = 1 T O   4 0 ; B = R N D   ( 2 6 )  2 ; B O X   0 , 0 , B , B , 3 ; B C = B C + 8 ; N E X T   A 
 
 1 0 7 0   F O R   A = 1 T O   5 0 ; X = R N D   ( 1 6 0 ) + 1 ; Y = X  2 
 
 1 0 8 0   M U = R N D   ( 1 0 ) ; B C = R N D   ( 2 5 5 ) ; F C = B C + 4 
 
 1 0 9 0   B O X   0 , 0 , X , Y , 3 ; N E X T   A 
 
 1 1 1 0   B C = 0 ; F C = 1 1 1 ; C L E A R 
 
 1 5 0 0   P R I N T   ; P R I N T   ; C X = - 1 8 ; P R I N T   " A N D . . . 
 
 1 5 1 0   P R I N T   ; C X = - 4 2 ; P R I N T   " Y O U   C A N   C R E A T E 
 
 1 5 2 0   P R I N T   ; C X = - 3 6 ; P R I N T   " A N   A D V E N T U R E 
 
 1 6 0 0   P R I N T   ; C X = - 4 6 ; P R I N T   " I N   O U T E R   S P A C E 
 
 1 6 0 4   N T = 0 ; C L E A R 
 
 1 6 0 5   & ( 1 7 ) = 5 0 ; & ( 1 8 ) = 2 0 ; & ( 2 2 ) = 2 5 5 ; G O S U B   2 0 0 2 0 
 
 1 6 4 0   & ( 2 2 ) = 0 ; & ( 1 6 ) = 0 ; & ( 1 7 ) = 0 ; & ( 1 8 ) = 0 ; & ( 2 3 ) = 0 ; N T = 3 
 
 1 6 5 0   G O S U B   3 2 ; C Y = 1 6 ; C X = - 4 2 ; P R I N T   " Y O U ' R E   A   W I N N E R 
 
 1 6 6 0   P R I N T   ; C X = - 1 2 ; P R I N T   " W I T H 
 
 1 6 7 0   P R I N T   ; C X = - 4 8 ; P R I N T   " * *   B A L L Y   B A S I C   * * 
 
 1 7 0 0   G O S U B   3 0 ; P R I N T   ; C X = - 1 8 ; P R I N T   " N O W . . . 
 
 1 7 1 0   P R I N T   ; C X = - 4 8 ; P R I N T   " C R E A T E   Y O U R   O W N 
 
 1 7 1 5   B O X   2 9 , 1 1 , 1 8 , 1 , 1 
 
 1 7 2 0   P R I N T   ; C X = - 4 2 ; P R I N T   " A D V E N T U R E S ! . . . 
 
 1 7 5 0   G O S U B   3 0 ; C X = - 1 2 ; C Y = 8 ; P R I N T   " W I T H 
 
 1 7 6 0   C X = - 5 4 ; C Y = - 8 ; P R I N T   " * *   B A L L Y   B A S I C   * * 
 
 1 7 7 0   N T = 0 
 
 1 8 0 0   N T = 0 ; G O S U B   3 0 ; C Y = - 4 0 ; C X = - 9 ; P R I N T   " T H E 
 
 1 8 0 5   P R I N T   ; P R I N T 
 
 1 8 1 0   C X = - 2 7 ; P R I N T   " B E G I N N I N G 
 
 1 8 2 0   N T = 3 
 
 1 9 0 0   F O R   A = 1 T O   1 0 ; B C = R N D   ( 2 5 5 ) ; F C = B C + 1 2 ; P R I N T   ; N E X T   A ; G O T O   9 0 
 
 2 0 0 0   A = 1 0 ; B = 2 0 ; C = 3 0 ; B O X   0 , 0 , 6 0 , 1 , 1 ; B O X   0 , - B , 6 0 , 1 , 1 ; B O X   - A , - A , 1 , 6 0 , 1 ; B O X   A , - A , 1 , 6 0 , 1 
 
 2 0 1 0   G O S U B   3 1 ; C X = - B ; C Y = A ; P R I N T   " X 
 
 2 0 2 0   G O S U B   3 1 ; C X = - B ; C Y = - A ; P R I N T   " O 
 
 2 0 3 0   G O S U B   3 1 ; C X = 0 ; C Y = - C ; P R I N T   " X 
 
 2 0 4 0   G O S U B   3 1 ; C X = B ; C Y = - A ; P R I N T   " O 
 
 2 0 5 0   G O S U B   3 1 ; C X = 0 ; C Y = - A ; P R I N T   " X 
 
 2 0 6 0   G O S U B   3 1 ; C X = B ; C Y = - C ; P R I N T   " O 
 
 2 0 7 0   G O S U B   3 1 ; C X = 0 ; C Y = A ; P R I N T   " X 
 
 2 0 8 0   G O S U B   3 1 ; B O X   0 , - A , 2 0 , 6 0 , 3 
 
 2 4 0 0   F O R   A = 1 T O   1 0 0 0 ; N E X T   A 
 
 2 4 0 5   R E T U R N 
 
 2 5 0 0   F O R   A = 1 T O   9 ; B O X   R N D   ( 5 1 ) - 2 5 , - R N D   ( 3 0 ) , 5 , 5 , 1 ; N E X T   A 
 
 2 5 1 0   F O R   X = - 2 0 T O   2 0 S T E P   9 
 
 2 5 1 5   N T = 1 
 
 2 5 2 0   C Y = 2 3 ; C X = X - 9 ; P R I N T   "   X 
 
 2 5 3 0   F O R   Y = 1 8 T O   - 3 0 S T E P   - 1 
 
 2 5 3 2   M U = 6 3 + Y 
 
 2 5 3 5   I F   P X ( X , Y - 5 ) B O X   X , Y - 5 , 7 , 8 , 2 ; N T = 9 ; M U = 4 2 ; Y = - 3 0 
 
 2 5 4 0   B O X   X , Y , 3 , 3 , 1 ; B O X   X , Y , 3 , 3 , 2 ; N E X T   Y 
 
 2 5 6 0   N E X T   X ; N T = 3 
 
 2 5 7 0   R E T U R N 
 
 8 0 0 0   I F   R N D   ( 3 ) > 1 G O T O   8 2 0 0 
 
 8 0 0 5   N T = 8 
 
 8 0 0 7   C L E A R 
 
 8 0 1 0   P R I N T   " 5 0 3 0 5 0 0 0 5 0 3 0 5 0 0 0 6 0 5 0 4 0 3 0 2 0 3 0 4 0 3 4 5 0 1 0 1 0 1 0 1 2 3 4 5 0 0 0 5 0 2 0 2 0 4 0 3 0 2 0 1 0 0 0 " 
 
 8 0 2 0   N T = 3 
 
 8 0 3 0   R E T U R N 
 
 8 2 0 0   I F   R N D   ( 2 ) = 1 G O T O   8 3 0 0 
 
 8 2 1 0   N T = 1 0 ; C L E A R   ; G O S U B   8 2 5 0 ; P R I N T   " 5 0 0 0 3 0 3 0 0 + 2 3 0 + 4 0 0 0 + 2 0  7 0 0 0 0 0 
 
 8 2 2 0   G O S U B   8 2 5 0 ; P R I N T   " 5 0 0 0 + 4 3 0 + 2 0 0 + 1 + 2 0 3 0 0 0 0 0 3 0 0 0 " ; R E T U R N 
 
 8 2 5 0   P R I N T   "  2 0 0 0 0 0  2 0 0  1 7 0 6 0 0 0 + 4 0 2 0 0 3 + 4 " ; R E T U R N 
 
 8 3 0 0   N T = 1 0 
 
 8 3 1 0   C L E A R   ; F O R   A = 1 T O   2 ; P R I N T   "   1  6 2 0  6 0 0  7 1  6 2 0  6 0 0  7 1 0 4 0 3 0 2 0 1  6 2 0  6 0 0 0 " ; N E X T   A ; R E T U R N 
 
 1 1 0 0 0   L I N E   - 6 0 , - 4 0 , 4 ; B = 5 0  R N D   ( 2 ) 
 
 1 1 0 0 5   F O R   Y = - 4 0 T O   2 0 S T E P   1 0 ; B O X   0 , Y , 1 2 0 , 1 , 1 ; N E X T   Y 
 
 1 1 0 1 0   F O R   X = - 6 0 T O   6 0 S T E P   1 0 ; G O S U B   1 1 0 0 0 + B ; N E X T   X 
 
 1 1 0 2 0   R E T U R N 
 
 1 1 0 5 0   L I N E   X , R N D   ( 6 0 ) - 4 0 , 1 ; B O X   X , - 1 0 , 1 , 6 0 , 1 ; R E T U R N 
 
 1 1 1 0 0   F O R   A = - 3 5 T O   R N D   ( 6 0 ) - 3 5 S T E P   5 ; B O X   X , A , 7 , 5 , 1 ; N E X T   A ; R E T U R N 
 
 1 4 0 0 0   B C = 0 ; F C = R N D   ( 3 1 )  8 - 1 ; G O T O   1 4 0 0 0 + R N D   ( 3 )  1 0 
 
 1 4 0 1 0   F O R   A = 1 T O   2 5 ; R = 0 ; X = R N D   ( 4 0 ) ; S = R N D   ( 4 0 ) ; G O S U B   1 4 0 5 0 ; N E X T   A ; R E T U R N 
 
 1 4 0 2 0   F O R   A = 1 T O   1 5 ; R = 0 ; S = 0 ; X = R N D   ( 4 0 ) ; Y = R N D   ( 4 0 ) ; G O S U B   1 4 0 5 0 ; N E X T   A ; R E T U R N 
 
 1 4 0 3 0   F O R   A = 1 T O   2 5 ; R = Y ; S = X ; X = R N D   ( 4 0 ) ; Y = R N D   ( 4 0 ) ; G O S U B   1 4 0 5 0 ; N E X T   A ; R E T U R N 
 
 1 4 0 5 0   L I N E   R , S , 4 ; L I N E   X , Y , 1 ; L I N E   - R , - S , 4 ; L I N E   - X , - Y , 1 
 
 1 4 0 6 0   L I N E   - R , S , 4 ; L I N E   - X , Y , 1 ; L I N E   R , - S , 4 ; L I N E   X , - Y , 1 ; R E T U R N 
 
 2 0 0 2 0   F O R   S = 1 T O   2 5 ; B O X   R N D   ( 1 6 0 ) - 8 0 , R N D   ( 8 6 ) - 4 3 , 1 , 1 , 1 ; N E X T   S 
 
 2 0 0 4 0   B O X   0 , 1 5 , 8 1 , 1 5 , 1 ; B O X   0 , 1 5 , 2 1 , 2 1 , 1 
 
 2 0 0 6 0   F O R   X = - 4 0 T O   4 0 ; B O X   X , 1 5 , 1 , 2 , 2 ; X = X - 1 + ( 1 8 0 0 - X  X )  2 0 0 ; N E X T   X 
 
 2 0 0 9 0   X = - 3 0 ; Y = - 4 2 ; M = 0 ; N = 4 
 
 2 0 0 9 5   G O S U B   2 0 3 0 0 
 
 2 0 1 5 0   F O R   C X = - 2 0 T O   3 5 ; C Y = - 3 0 + C X  2 ; T V = " X " ; C X = C X - 6 
 
 2 0 1 5 5   & ( 1 6 ) = R N D   ( 2 3 ) + 4 0 
 
 2 0 1 6 0   B O X   C X - 1 , C Y , 5 , 5 , 1 ; B O X   C X , C Y ,   9 , 9 , 2 ; N E X T   C X ; P R I N T   " X " 
 
 2 0 1 7 0   B O X   3 5 , - 1 3 , 3 , 3 , 1 
 
 2 0 1 8 0   X = 5 2 ; Y = - 3 0 ; G O S U B   2 0 3 0 0 
 
 2 0 1 9 0   X = 3 5 ; Y = - 5 ; G O S U B   2 0 3 0 0 
 
 2 0 2 0 0   X = 0 ; Y = 1 5 ; M = 3 2 ; N = - 1 0 
 
 2 0 2 1 0   F O R   A = 1 T O   3 ; G O S U B   2 0 3 0 0 ; N E X T   A 
 
 2 0 2 2 0   F O R   A = 2 T O   5 0 S T E P   5 
 
 2 0 2 3 0   B O X   A , 1 5 , R N D   ( 4 0 ) , R N D   ( 1 5 ) , 3 
 
 2 0 2 4 0   B O X   - A , 1 5 , R N D   ( 4 0 ) , R N D   ( 1 5 ) , 3 
 
 2 0 2 4 4   F O R   B = 1 T O   2 0 ; & ( 1 6 ) = B + 5 0 ; N E X T   B 
 
 2 0 2 4 5   B O X   0 , 1 5 , A  3 , A  2 + 1 , 2 
 
 2 0 2 5 0   N E X T   A ; B C = 0 
 
 2 0 2 6 0   F O R   A = 1 T O   2 5 ; B O X   R N D   ( 1 6 0 ) - 8 0 , R N D   ( 3 0 ) , 1 , 1 , 1 ; N E X T   A ; R E T U R N 
 
 2 0 3 0 0   L I N E   M , N , 4 ; L I N E   X , Y , 1 ; L I N E   M , N , 4 ; L I N E   X , Y , 2 
 
 2 0 3 0 4   & ( 2 1 ) = 2 5 5 
 
 2 0 3 0 5   F O R   B = 2 5 5 T O   0 S T E P   - 3 2 ; & ( 2 3 ) = B ; N E X T   B 
 
 2 0 3 1 0   & ( 2 1 ) = 0 ; & ( 2 3 ) = 0 ; R E T U R N 
 
 
 
 ? ? ?   - >   0 
 
 
 
 ? ? ?   - >   0 
 
 
 
 ? ? ?   - >   0 
 
 
 
 ? ? ?   - >   0 
 
 
 
 ? ? ?   - >   0 
 
 
 
 ? ? ?   - >   0 
 
 
 
 . . .   W e l l ,   t h e   l a s t   o f   t h a t   w a s   f i l l e r   N O P s 
 
 
 
 R i c h a r d   D e g l e r 